home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / prelude / Set.p < prev    next >
Encoding:
Text File  |  2001-02-28  |  989 b   |  38 lines
  1. pTempVar <- <primitive 110 7 >
  2. <primitive 112 pTempVar 1  " next " \
  3.   #( #[ 16r10 16rA7 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " first " \
  7.   #( #[ 16r10 16rA6 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " occurrencesOf: " \
  11.   #( #[ 16r10 16r21 16r0B 16r1F 16rF7 16r03 16r51 16rF8 16r02 16rF2 16r50 \
  12.         16rF3 16rF5] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 4  " size " \
  16.   #( #[ 16r10 16rA3 16rF3 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 5  " remove:ifAbsent: " \
  20.   #( #[ 16r10 16r21 16r22 16rD8 16rF2 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 6  " add: " \
  24.   #( #[ 16r10 16r21 16r0B 16r1F 16rF6 16r03 16r10 16r21 16rBE 16rF2 16rF5 \
  25.        ] \
  26.     #(  )) >
  27.  
  28. <primitive 112 pTempVar 7  " new " \
  29.   #( #[ 16r05 16r30 16rA0 16r60 16rF5] \
  30.     #(  )) >
  31.  
  32. <primitive 98 #Set \
  33.   <primitive 97 #Set #Collection #AmigaTalk:General/Set.st \
  34.    #(  #list ) \
  35.    #( #next #first #occurrencesOf: #size #remove:ifAbsent: #add: #new  ) \
  36.   pTempVar 3 4 >>
  37.  
  38.